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LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 
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h 
; File: LIBSKPC.MA 


THIS SOFTWARE 4. FURNISHED UNDER A LICENSE AND MAY BE USED AND corre? 
oN IN 4 SY THe NCE WITH THE TERMS oF SUCH ait tt AND WITH THE 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
pepokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR _ RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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PRR RARRAASRASASLASALAAALALAALERLARARARRRARAR ARR RAR RRR R RASA RAR ERAS ARR ARR RA AD OI 


: FACILITY: General Utility Library 
; ABSTRACT: 


Return the relative position of the non-matching character or 
zero. 


; ENVIRONMENT: User Mode, AST Reentrant 


: AUTHOR: Donald G. Petersen, CREATION DATE: 03-Jan-78 
> MODIFIED BY: 
: DGP. 03-Jan-78 : VERSION 00 


COOOCSCOSOSOSOSOSOOOSSSOSSOSOSOOSCOSOSOOSCOSOSOSOOSOOOOSOOOOSOOOOSOoOO 
SOSSSCSOSOSSOSSOSSSSSSOSOSOSOSOSOSOSOSOOOSOOSOSO OOOO OOSOOSoSoOO 
OCOOGOCOCOCOCSOSOSOSSSOOSOOSCSOOSCOOSOOSCOOSCOOCOOOCOOOOOOOOOoOO 


01 a 
3 00-02 - OEP Obs Jan-78 Relative position not found properl 
0 1-001 - Update version number and copyright notice. JBS 16-NOV-78 
0 1-006 - Add ‘'."' to the PSECT eicge tive, JBS 21-DEC-78 
0 1-003 - Enhance to recogn ze additional classes of string de descripters 
0 by rave tag, LIBSA 


NALYZE_ SoESC CeP3,t to Q extract Length 
; address of 1st data byte. 
; 1-004 - Add sper jal~cose code to proce s string descriptors that 
: ‘read’ ."3 e fixed string descriptors. RKR T-1981. 
; 1-005 - Redirect jsb's from LIBSANALYZE_SDESC_R3 to | 
; LTBSANALY E  SDESC _R2. Reorganize regsS to avoid using R5 
which can be removed form entry mask. 
RER. NecnOvei9BT 
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OOoooooo 


oO: 
NOU EWN @ OOO NOAUE WIN $0 ONAN EWN @ OO ONAU EWN OOWONAOU EWN" OOONOUS Wn 


PUPP BP BS BP BB BE BE EAI NINN NIAID PINININPONOPNOPPY 2 2 PP oe 
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0000 
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racters 
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; EXTERNAL SYMBOLS 
DS 


¢ 3 
in a character string 16-SEP-1984 90:19:38 ies Macro V04-00 
6-S 2117:1 LIBRTL.SRCILIBSKPC.MAR; 1 


-SBTTL DECLARATIONS 


: INCLUDE FILES: NONE 


° L ; Only explicit externals 
eEXTRN LIBSANALYZE_SDESC_R2 ; Extract length and address of 
; Ist data byte of string 


: MACROS: 


SOSCDEF ; fields within a descriptor 


: EQUATED SYMBOLS: NONE 
: OWN STORAGE: NONE 


; PSECT DECLARATIONS: 


-PSECT _LIBSCODE PIC, SHR, LONG, EXE, NOWRT 


i) 
LIBSSKPC - Skip characters in a character string 16-SEP-1984 00:19:5 AX/VMS Macro V04-00 2 
4 808 LIBSskPe - Skip characters . 6-S eats yi 90:19:78 EMTBRTL. SREILIBSKPC.MAR: 1 at 3) 
08 Ps. .SBTTL LIBSSKPC = Skip characters | : 
09 5 ; FUNCTIONAL DESCRIPTION: | : 
00 91 ; The character is compared with successive bytes of the string ; 
00 6 3 specified by the string descriptor until an inequality is . 
00 93; found or fhe string is exhausted. . 
4 94 ; The relative position of the unequal byte or zero is returned. . 
oP 32 ; If the string has a length of zero then a zero is returned. ; 
$00 3 ; CALLING SEQUENCE: : 
$00 35 : index.wlu.v = LIBSSKPC (char.rt.dx, string.rt.dx) : 
$333 10 | it 
444 19 : INPUT PARAMETERS: : 
00000004 0000 104 ° CHAR = 4 ; Adr of character desc : 
00000008 444 132 STRING = 8 ; Adr of string desc : 
0000 107 : IMPLICIT INPUTS: | ; 
0000 108; 3 
2 Salaam at 
0000 111 : OUTPUT PARAMETERS: | : 
0000 N¢ : 3 
tiny oe tee! 
0000 115 : IMPLICIT OUTPUTS: | F 
0000 116; : 
SORA faethe ae) 
9000 119 : FUNCTION VALUE: | 
444 13 : index.wlu.v 3 
0000 (1 ‘ > SIDE EFFECTS: | : 
0000 124: ; 
0000 125; NONE : 
0000 126; F 
$333 1g fel 
001¢ 0000 129 ENTRY LIBSSKPC , “M<R2, R3, R4> ; Entry point | F 
50 4 AC 9 8908 130 MOVL CH ; Address of character descr | : 
02 03 Ad 91 0006 1 CHP DSCSB_CLASS(RO), #DSCSK_CLASS_D ; read like fixed ? ; 
3 no | : 
53 04 A0 00 000 1 : MOVL DSCSA_POINTER(RO), R3  ; address-> R3 3 
09 = 3 : : BRB 2s ; join common flow | : 
sees | adh: 1 01 1 § 1$: JSB G*LIBSANALYZE_SDESC_R2 ; Extract: Length->R1, addr->R2 : 
5 52 D Ht : MOVL R2, R3 3; save addr of ‘st data byte : 
50 08 AC 0 18 #1 § 2s: MOVL STRING(AP), RO ; Address of string descr ; 
02 0 a0 91 OO1F 140 CHPB SC B_CLASS(RO), #DSCSK_CLASS_D ; read Like fixed ? 2 
51 08 BC 7D 038 136 MOVQ @STRING(AP), R1 : Length=>R1, address->R2 ; 
>. a 9 14 are 4$ : join common flow : 
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IBSSKPC = Ski s in a character string 16- 
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p characters 
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EP abs 9 90:19:36 AX/VMS Macro 
EP- 11:11 


$ v04-00 
=SEP=19 21 LIBRTL. SRC CJL LIBSKPC MAR; 1 (3), 


snee ’ aad 16 3$: JSB G*LIBSANALYZE_SDESC_R2 ; Extract: we pie addr->R2 
4 51 3X 4$: MOVZWL R1, RG 3 save string ength 
ee P &€. BB SKPC (R3), R1, (R2) ; skip characters 


State of reas after a sure tga 

RO = If found, number of ater 
remaining in string (including 
2 ag one), 


R1 = if found, address of byte found, 
else address of 1 byte beyond 


Bete Se Ge Se Se Se Ge Ge 


string. 
BEQL 10$ ; branch if none found 
SUBW3 RO, R4, RO 3; get relative position 
INCL RO 3; one origin 
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, seserrt 


a ee table LIBRTL.S iL IB SKPC.MAR; 1 
= 4 
BeCSA POINTER 2 
peeae ELAS ae 
DSCSK-CLASS_D = 
Lea SARA VEE _SDESC_R2 soeoecon ag” 
STRING = $0000008 


eee weer een een ane en $ 


PSECT name Allocation PSECT No. Attributes 


. ABS . 00000000 <( Q. } oF -} NOPIC USR CON ABS LCL ose NOEXE NORD or NOVEC BYTE 
SABSS 00000000 ¢ -) NOPIC USR CON ABS LCL NOSHR EXE RD T NOVEC BYTE 
-LIBSCODE 00000041 (¢ 65.) 2. PIC USR CON REL LCL SHR EXE RD NOURT NOVEC LONG 


Steen Sean ne He tee woos + 


eee rte teem eee me eee eee eee HH 


Phase Page faults CPU Time Elapsed Time 


Initialization 37 00:00 :90.03 00:00:00.99 
Command processing 147 0:00:00. ! 00:00:01.63 
Pass 131 0:00:01.1 00:00:04.15 
Symbol table sort 0 00:00:00.10 BR Oe ae 
Pass 2 “§ bs So SED 00:00:01.3 

Symbol table output 00:00:00.01 60:00:00.02 
Psect synopsis output 2 00:00:00.01 00:00:00.01 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 364 00:00:01.91 00:00:08.31 


The working set Limit was 900 pages. 

8049 bytes (16 pages) of virtual memcry were used to buffer the intermediate code. 

There were 10 pages of symbol table space on eceeee to hold 135 non-local and 5 local symbols. 
163 source Lines were read in Pass 1, prodycing | object records in Pass 2. 

8 pages of virtual memory were used to define 7 macros. 


Seeoere rarest eco esses eee eat 


Macro Library name Macros defined 
“$255$DUAZ8:(SYSLIBJSTARLET.MLB;2 0 ( itttstttttsS 4: 
190 GETS were required to define 4 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:LIBSKPC/OBJ=OBJ$:LIBSKPC MSRC$:LIBSKPC/UPDATE=(ENHS:LIBSKPC) 
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